inherited dtmcw_YSRevMaster: Tdtmcw_YSRevMaster
  OldCreateOrder = True
  Left = 423
  Top = 245
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_cw_YSRevMaster where 0=0'
    object adsMasterBillID: TStringField
      DisplayLabel = #24212#25910#21333'ID'
      FieldName = 'BillID'
    end
    object adsMasterBillNo: TStringField
      DisplayLabel = #24212#25910#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterBillDate: TDateTimeField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterBillType: TStringField
      DisplayLabel = #24212#25910#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterSendType: TStringField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'SendType'
    end
    object adsMasterSendBillNo: TStringField
      DisplayLabel = #28304#21333#32534#21495
      FieldName = 'SendBillNo'
    end
    object adsMasterRevDate: TDateTimeField
      DisplayLabel = #25910#27454#26399#38480
      FieldName = 'RevDate'
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterCustID: TStringField
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
    end
    object adsMasterCustCode: TStringField
      DisplayLabel = #23458#25143#32534#30721
      FieldName = 'CustCode'
    end
    object adsMasterCustShortName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'CustShortName'
    end
    object adsMasterDayRevMoney: TFloatField
      DisplayLabel = #26085#26469#27454
      FieldName = 'DayRevMoney'
    end
    object adsMasterRevBalance: TFloatField
      DisplayLabel = #19978#21333#32467#27424
      FieldName = 'RevBalance'
    end
    object adsMasterSumRevBalance: TFloatField
      DisplayLabel = #36830#19978#32047#27424
      FieldName = 'SumRevBalance'
    end
    object adsMasterSumMoney: TFloatField
      DisplayLabel = #26412#21333#37329#39069
      FieldName = 'SumMoney'
    end
    object adsMasterRebateMoney: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'RebateMoney'
    end
    object adsMasterRevMoney: TFloatField
      DisplayLabel = #24050#25910#37329#39069
      FieldName = 'RevMoney'
    end
    object adsMasterRevStatus: TWordField
      DisplayLabel = #25910#27454#24773#20917
      FieldName = 'RevStatus'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 200
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from cw_YSRevMaster'
    object adsMasterEditBillID: TStringField
      DisplayLabel = #24212#25910#21333'ID'
      FieldName = 'BillID'
    end
    object adsMasterEditBillNo: TStringField
      DisplayLabel = #24212#25910#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterEditBillDate: TDateTimeField
      DisplayLabel = #24212#25910#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterEditBillType: TStringField
      DisplayLabel = #24212#25910#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterEditSendType: TStringField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'SendType'
    end
    object adsMasterEditSendBillNo: TStringField
      DisplayLabel = #28304#21333#32534#21495
      FieldName = 'SendBillNo'
      OnChange = adsMasterEditSendBillNoChange
    end
    object adsMasterEditRevDate: TDateTimeField
      DisplayLabel = #25910#27454#26399#38480
      FieldName = 'RevDate'
    end
    object adsMasterEditDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterEditCustID: TStringField
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
      OnChange = adsMasterEditCustIDChange
    end
    object adsMasterEditCurrencyID: TStringField
      DisplayLabel = #24065#21035'ID'
      FieldName = 'CurrencyID'
    end
    object adsMasterEditEmpID: TStringField
      DisplayLabel = #19994#21153#21592'ID'
      FieldName = 'EmpID'
    end
    object adsMasterEditFollowerID: TStringField
      DisplayLabel = #36319#21333#21592'ID'
      FieldName = 'FollowerID'
    end
    object adsMasterEditExchangeRate: TFloatField
      DisplayLabel = #27719#29575
      FieldName = 'ExchangeRate'
    end
    object adsMasterEditDayRevMoney: TFloatField
      DisplayLabel = #26085#26469#27454
      FieldName = 'DayRevMoney'
      OnChange = adsMasterEditDayRevMoneyChange
    end
    object adsMasterEditRevBalance: TFloatField
      DisplayLabel = #19978#21333#32467#27424
      FieldName = 'RevBalance'
      OnChange = adsMasterEditRevBalanceChange
    end
    object adsMasterEditSumRevBalance: TFloatField
      DisplayLabel = #36830#19978#32047#27424
      FieldName = 'SumRevBalance'
    end
    object adsMasterEditSumMoney: TFloatField
      DisplayLabel = #26412#21333#37329#39069
      FieldName = 'SumMoney'
    end
    object adsMasterEditRebateMoney: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'RebateMoney'
    end
    object adsMasterEditRevMoney: TFloatField
      DisplayLabel = #24050#25910#37329#39069
      FieldName = 'RevMoney'
    end
    object adsMasterEditRevStatus: TWordField
      DisplayLabel = #25910#27454#24773#20917
      FieldName = 'RevStatus'
    end
    object adsMasterEditHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterEditChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 200
    end
    object adsMasterEditres_CustName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_CustName'
      LookupDataSet = res_Customer
      LookupKeyFields = 'CustID'
      LookupResultField = 'CustShortName'
      KeyFields = 'CustID'
      Lookup = True
    end
    object adsMasterEditres_CustCode: TStringField
      DisplayLabel = #23458#25143#32534#30721
      FieldKind = fkLookup
      FieldName = 'res_CustCode'
      LookupDataSet = res_Customer
      LookupKeyFields = 'CustID'
      LookupResultField = 'CustCode'
      KeyFields = 'CustID'
      Lookup = True
    end
    object adsMasterEditres_EmpName: TStringField
      DisplayLabel = #19994#21153#21592
      FieldKind = fkLookup
      FieldName = 'res_EmpName'
      LookupDataSet = res_Employee
      LookupKeyFields = 'EmpID'
      LookupResultField = 'EmpName'
      KeyFields = 'EmpID'
      Lookup = True
    end
    object adsMasterEditres_FollowerName: TStringField
      DisplayLabel = #36319#21333#21592
      FieldKind = fkLookup
      FieldName = 'res_FollowerName'
      LookupDataSet = res_Employee
      LookupKeyFields = 'EmpID'
      LookupResultField = 'EmpName'
      KeyFields = 'FollowerID'
      Lookup = True
    end
  end
  object adsDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsDetailBeforePost
    OnNewRecord = adsDetailNewRecord
    CommandText = 'Select * from cw_YSRevDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 192
    Top = 40
    object adsDetailID: TStringField
      FieldName = 'ID'
    end
    object adsDetailBillID: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object adsDetailType: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'Type'
    end
    object adsDetailOrderDetailNo: TStringField
      DisplayLabel = #37197#33394#21333#21495
      FieldName = 'OrderDetailNo'
    end
    object adsDetailCustOrderNo: TStringField
      DisplayLabel = #23458#25143#35746#21333#21495
      FieldName = 'CustOrderNo'
    end
    object adsDetailSendBillDetailID: TStringField
      DisplayLabel = #21457#36135#21333#26126#32454'ID'
      FieldName = 'SendBillDetailID'
    end
    object adsDetailProjectNo: TStringField
      DisplayLabel = #21345#21495'/'#32568#21495
      FieldName = 'ProjectNo'
    end
    object adsDetailHasUnion: TBooleanField
      DisplayLabel = #21512#32568#21542
      FieldName = 'HasUnion'
    end
    object adsDetailProductID: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object adsDetailProductCode: TStringField
      DisplayLabel = #36135#21495
      FieldName = 'ProductCode'
      Size = 50
    end
    object adsDetailProductName: TStringField
      DisplayLabel = #36135#21517
      FieldName = 'ProductName'
      Size = 50
    end
    object adsDetailSpecs: TStringField
      DisplayLabel = #22411#21495#35268#26684
      FieldName = 'Specs'
      Size = 50
    end
    object adsDetailColorID: TStringField
      DisplayLabel = #33394#21495'ID'
      FieldName = 'ColorID'
    end
    object adsDetailColorCode: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object adsDetailColorName: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 30
    end
    object adsDetailSendStripKG: TFloatField
      DisplayLabel = #21457#32986#25968#37327'(KG)'
      FieldName = 'SendStripKG'
    end
    object adsDetailSendNumber: TFloatField
      DisplayLabel = #38144#21806#25968#37327'(KG)'
      FieldName = 'SendNumber'
      OnChange = adsDetailSendNumberChange
    end
    object adsDetailSendMeter: TFloatField
      DisplayLabel = #38144#21806#25968#37327'(M)'
      FieldName = 'SendMeter'
    end
    object adsDetailSendYard: TFloatField
      DisplayLabel = #38144#21806#25968#37327'(Y)'
      FieldName = 'SendYard'
    end
    object adsDetailPieceCount: TFloatField
      DisplayLabel = #21305#25968
      FieldName = 'PieceCount'
    end
    object adsDetailGrossWeight: TFloatField
      DisplayLabel = #27611#37325'(KG)'
      FieldName = 'GrossWeight'
    end
    object adsDetailTubeWeight: TFloatField
      DisplayLabel = #32440#31649#21333#37325'(KG)'
      FieldName = 'TubeWeight'
      OnChange = adsDetailTubeWeightChange
    end
    object adsDetailTubeSumWeight: TFloatField
      DisplayLabel = #32440#31649#21512#35745#37325#37327'(KG)'
      FieldName = 'TubeSumWeight'
    end
    object adsDetailCostPrice: TFloatField
      DisplayLabel = #25104#26412#21333#20215
      FieldName = 'CostPrice'
    end
    object adsDetailCostMoney: TFloatField
      DisplayLabel = #25104#26412#37329#39069
      FieldName = 'CostMoney'
    end
    object adsDetailSalePrice: TFloatField
      DisplayLabel = #38144#21806#21333#20215
      FieldName = 'SalePrice'
    end
    object adsDetailAddPrice: TFloatField
      DisplayLabel = #29305#27530#21152#20215
      FieldName = 'AddPrice'
      OnChange = adsDetailAddPriceChange
    end
    object adsDetailUpperPrice: TFloatField
      DisplayLabel = #36229#25104#26412#21152#20215
      FieldName = 'UpperPrice'
      OnChange = adsDetailUpperPriceChange
    end
    object adsDetailUpperMoney: TFloatField
      DisplayLabel = #36229#25104#26412#21152#20215#37329#39069
      FieldName = 'UpperMoney'
    end
    object adsDetailSaleMoney: TBCDField
      DisplayLabel = #38144#21806#37329#39069
      FieldName = 'SaleMoney'
      Precision = 18
      Size = 2
    end
    object adsDetailUnitID: TStringField
      DisplayLabel = #21333#20301'ID'
      FieldName = 'UnitID'
    end
    object adsDetailNumber: TFloatField
      DisplayLabel = #23454#35745#25968#37327
      FieldName = 'Number'
      OnChange = adsDetailNumberChange
    end
    object adsDetailres_UnitName: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsDetailPrice: TFloatField
      DisplayLabel = #23454#35745#21333#20215
      FieldName = 'Price'
      OnChange = adsDetailPriceChange
    end
    object adsDetailAddMoney: TFloatField
      DisplayLabel = #38468#21152#36153
      FieldName = 'AddMoney'
      OnChange = adsDetailAddMoneyChange
    end
    object adsDetailMoney: TBCDField
      DisplayLabel = #23454#35745#37329#39069
      FieldName = 'Money'
      Precision = 18
      Size = 2
    end
    object adsDetailAddRemark: TWideStringField
      DisplayLabel = #24037#33402#35201#27714
      FieldName = 'AddRemark'
      Size = 500
    end
    object adsDetailOrderRemark: TWideStringField
      DisplayLabel = #35746#21333#35828#26126
      FieldName = 'OrderRemark'
      Size = 500
    end
    object adsDetailBarcodeRemark: TWideStringField
      DisplayLabel = #26465#30721#26126#32454
      FieldName = 'BarcodeRemark'
      Size = 500
    end
    object adsDetailFlowerHeight: TStringField
      DisplayLabel = #33457#39640'(CM)'
      FieldName = 'FlowerHeight'
      Size = 50
    end
    object adsDetailFlowerWidth: TStringField
      DisplayLabel = #33457#23485'(CM)'
      FieldName = 'FlowerWidth'
      Size = 50
    end
    object adsDetailFlowerBreadth: TStringField
      DisplayLabel = #24133#23485'(CM)'
      FieldName = 'FlowerBreadth'
      Size = 50
    end
    object adsDetailFlowerGram: TStringField
      DisplayLabel = #20811#37325'(G/m2)'
      FieldName = 'FlowerGram'
      Size = 50
    end
    object adsDetailWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsDetailWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsDetailModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsDetailModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsDetailRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  object adsRevType: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 'Select * from V_cw_YSRevType'
    Parameters = <>
    Left = 320
    Top = 104
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'#13#10'and isnull(b' +
      '.HasStop,0)=0'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 464
    Top = 40
  end
  object res_Customer: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select CustID, CustCode, CustShortName, CustFullName from V_da_C' +
      'ustomer'
    Parameters = <>
    Left = 320
    Top = 40
  end
  object adsBrowseDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsDetailBeforePost
    OnNewRecord = adsDetailNewRecord
    CommandText = 'Select * from cw_YSRevDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 192
    Top = 104
    object adsBrowseDetailID: TStringField
      FieldName = 'ID'
    end
    object adsBrowseDetailBillID: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object adsBrowseDetailType: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'Type'
    end
    object adsBrowseDetailOrderDetailNo: TStringField
      DisplayLabel = #23458#25143#35746#21333#26126#32454#21333#21495
      FieldName = 'OrderDetailNo'
    end
    object adsBrowseDetailCustOrderNo: TStringField
      DisplayLabel = #23458#25143#35746#21333#21495
      FieldName = 'CustOrderNo'
    end
    object adsBrowseDetailSendBillDetailID: TStringField
      DisplayLabel = #21457#36135#21333#26126#32454'ID'
      FieldName = 'SendBillDetailID'
    end
    object adsBrowseDetailProjectNo: TStringField
      DisplayLabel = #21345#21495'/'#32568#21495
      FieldName = 'ProjectNo'
    end
    object adsBrowseDetailHasUnion: TBooleanField
      DisplayLabel = #21512#32568#21542
      FieldName = 'HasUnion'
    end
    object adsBrowseDetailProductID: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object adsBrowseDetailProductCode: TStringField
      DisplayLabel = #36135#21495
      FieldName = 'ProductCode'
      Size = 50
    end
    object adsBrowseDetailProductName: TStringField
      DisplayLabel = #36135#21517
      FieldName = 'ProductName'
      Size = 50
    end
    object adsBrowseDetailSpecs: TStringField
      DisplayLabel = #22411#21495#35268#26684
      FieldName = 'Specs'
      Size = 50
    end
    object adsBrowseDetailColorID: TStringField
      DisplayLabel = #33394#21495'ID'
      FieldName = 'ColorID'
    end
    object adsBrowseDetailColorCode: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object adsBrowseDetailColorName: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 30
    end
    object adsBrowseDetailPieceCount: TFloatField
      DisplayLabel = #21305#25968
      FieldName = 'PieceCount'
    end
    object adsBrowseDetailSendNumber: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'SendNumber'
    end
    object adsBrowseDetailCostPrice: TFloatField
      DisplayLabel = #25104#26412#21333#20215
      FieldName = 'CostPrice'
    end
    object adsBrowseDetailCostMoney: TFloatField
      DisplayLabel = #25104#26412#37329#39069
      FieldName = 'CostMoney'
    end
    object adsBrowseDetailSalePrice: TFloatField
      DisplayLabel = #38144#21806#21333#20215
      FieldName = 'SalePrice'
    end
    object adsBrowseDetailAddPrice: TFloatField
      DisplayLabel = #29305#27530#21152#20215
      FieldName = 'AddPrice'
    end
    object adsBrowseDetailSaleMoney: TBCDField
      DisplayLabel = #38144#21806#37329#39069
      FieldName = 'SaleMoney'
      Precision = 18
      Size = 2
    end
    object adsBrowseDetailNumber: TFloatField
      DisplayLabel = #23454#35745#25968#37327
      FieldName = 'Number'
    end
    object adsBrowseDetailUnitID: TStringField
      DisplayLabel = #21333#20301'ID'
      FieldName = 'UnitID'
    end
    object adsBrowseDetailres_UnitName: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsBrowseDetailPrice: TFloatField
      DisplayLabel = #23454#35745#21333#20215
      FieldName = 'Price'
    end
    object adsBrowseDetailAddMoney: TFloatField
      DisplayLabel = #38468#21152#36153
      FieldName = 'AddMoney'
    end
    object adsBrowseDetailMoney: TBCDField
      DisplayLabel = #23454#35745#37329#39069
      FieldName = 'Money'
      Precision = 18
      Size = 2
    end
    object adsBrowseDetailAddRemark: TWideStringField
      DisplayLabel = #29305#27530#25972#29702#39033#30446#35828#26126
      FieldName = 'AddRemark'
      Size = 500
    end
    object adsBrowseDetailOrderRemark: TWideStringField
      DisplayLabel = #35746#21333#35828#26126
      FieldName = 'OrderRemark'
      Size = 500
    end
    object adsBrowseDetailBarcodeRemark: TWideStringField
      DisplayLabel = #26465#30721#26126#32454
      FieldName = 'BarcodeRemark'
      Size = 500
    end
    object adsBrowseDetailFlowerHeight: TStringField
      DisplayLabel = #33457#39640'(CM)'
      FieldName = 'FlowerHeight'
      Size = 50
    end
    object adsBrowseDetailFlowerWidth: TStringField
      DisplayLabel = #33457#23485'(CM)'
      FieldName = 'FlowerWidth'
      Size = 50
    end
    object adsBrowseDetailFlowerBreadth: TStringField
      DisplayLabel = #24133#23485'(CM)'
      FieldName = 'FlowerBreadth'
      Size = 50
    end
    object adsBrowseDetailFlowerGram: TStringField
      DisplayLabel = #20811#37325'(G/m2)'
      FieldName = 'FlowerGram'
      Size = 50
    end
    object adsBrowseDetailWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsBrowseDetailWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsBrowseDetailModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsBrowseDetailModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsBrowseDetailRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  object frdsDetail: TfrDBDataSet
    DataSet = adsDetail
    Left = 56
    Top = 160
  end
  object res_Unit: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select UnitID, UnitCode, UnitName from V_da_Unit'
    Parameters = <>
    Left = 464
    Top = 104
  end
  object adsProductOut: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_ProductBillDetail where BillNo=:BillNo'#13#10'  and' +
      ' BillType=2 and SysInOutType=10'
    EnableBCD = False
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 320
    Top = 168
  end
  object res_Employee: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select EmpID, EmpName from da_Employee'
    Parameters = <>
    Left = 464
    Top = 168
  end
  object adsStripIn: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_StripBillDetail where BillNo=:BillNo'#13#10'  and B' +
      'illType=1 and SysInOutType=5'
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 192
    Top = 232
  end
  object adsStuffOut: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_StuffBillDetail where BillNo=:BillNo'#13#10'  and B' +
      'illType=2 and SysInOutType=10'
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 320
    Top = 296
  end
  object adsStripOut: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_StripBillDetail where BillNo=:BillNo'#13#10'  and B' +
      'illType=2 and SysInOutType=10'
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 320
    Top = 232
  end
  object adsStuffIn: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_StuffBillDetail where BillNo=:BillNo'#13#10'  and B' +
      'illType=1 and isnull(SysInOutType,0)=0'
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 192
    Top = 296
  end
  object adsProductIn: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_ProductBillDetail where BillNo=:BillNo'#13#10'  and' +
      ' BillType=1 and SysInOutType in(0,2,5)'
    EnableBCD = False
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 192
    Top = 168
  end
end
